COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		title outdd
C00004 00003	erase:	ddupg	erspt
C00005 ENDMK
C⊗;
	title outdd
	entry outdd
	extern outstr,corget,correl

a←1
b←5
c←6
d←7
sp←16
p←17

THIS←←2
SIZ←←3
dddlin ←←20000

retadr:	0
outdd:	movni a,1
	getlin a
	tlnn a,dddlin
	jrst outstr
	dpypos -620
	dpysiz 5001
	pop p,retadr
	pop sp,c			;get string byte pointer
	pop sp,b			;get length of string
	hrrz b,b
	jumpe b,retadr			;null string
	movei siz,6(b)			;find number of words for string
	idivi siz,5
	addi siz,3
	pushj p,corget
	halt

	hrrm this,buffpt
	hrrm siz,buffpt+1
	movei a,1(this)
	hrrm a,buffpt+3

	move d,[point 7,0]
	hrri d,2(this)
d1:	ildb a,c
	idpb a,d
	sojg b,d1

	movei a,15
	idpb a,d
	movei a,12
	idpb a,d

	hrlzi a,-3(siz)			;set bit 35 of ascii string words to 1
	movn a,a
	hrri a,2(this)
	movei b,1
d2:	orm b,(a)
	aobjn a,d2

	move a,[BYTE (8) 46,0,46 (3) 1,2,1,4]
	movem a,(this)
	move a,[BYTE (8) 2,1,10 (3)3,4,5,4]
	movem a,1(this)
	
	DDUPG	BUFFPT

	pushj p,correl

	jrst @retadr

buffpt:	200000,,0
	0
	0
	0
erase:	ddupg	erspt
	popj	p,
ersbuf:	BYTE (8) 17,0,46 (3) 1,2,1,4	;funct. code, chan select, funct. code
	0
erspt:	ersbuf
	erspt-ersbuf
	0
	0


	end